home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / web / noweb / contrib / kostas / defns.nw < prev    next >
Text File  |  1995-02-24  |  577b  |  31 lines
  1. <<*>>=
  2. procedure go()
  3.   local line
  4.   while line := read() do {
  5.     apply(prepass, line)
  6.     write(line)
  7.     apply(postpass, line)
  8.   }
  9. end
  10.  
  11. procedure apply(pass, line)
  12.     line ? (="@" & pass(tab(upto(' ')|0),  if =" " then tab(0) else &null))
  13. end
  14. <<*>>=
  15. procedure writedefn(defn)
  16.   static indextext
  17.   initial indextext := ""
  18.   if /defn then
  19.     *indextext > 0 & <<flush index>>
  20.   else {
  21.     if *indextext + *defn > 65 then <<flush index>>
  22.     write("@index defn ", defn)
  23.     indextext ||:= " " || defn
  24.   }
  25.   return
  26. end
  27. <<flush index>>=
  28. { write("@index nl")
  29.   indextext := ""
  30. }
  31.